home *** CD-ROM | disk | FTP | other *** search
/ Cinema Studio: Frank Herrmann / Cinema Studio - Frank Herrmann.iso / tools / raystorm / arexx / attrtest1.ray < prev    next >
Text File  |  1995-08-06  |  3KB  |  157 lines
  1. /***************
  2.  * NAME:        attrtest1.ray
  3.  * VERSION:     1.0 06.08.1995
  4.  * DESCRIPTION: This ARexx-programm demonstrates different attributes
  5.  * AUTHORS:     Andreas Heumann
  6.  * BUGS:        none
  7.  * TO DO:       none
  8.  * HISTORY:     DATE  NAME  COMMENT
  9.  *              06.08.95 ah initial release
  10.  ***************/
  11.  
  12. OPTIONS RESULTS
  13.  
  14. IF ~SHOW('P','RAYSTORM') THEN DO  /* if not allready running, start RayStorm */
  15.    ADDRESS COMMAND 'run >NIL: <NIL: /raystorm'
  16.    ADDRESS COMMAND WaitForPort RAYSTORM
  17. END  
  18.  
  19. ADDRESS RAYSTORM
  20.  
  21. TEXTUREPATH '/textures'
  22.  
  23. SETSCREEN 160 128
  24. SETCAMERA 0 0 150  0 0 0  0 1 0  56.25 45
  25. SETWORLD 0 0 255  60 60 60
  26. POINTLIGHT '100 -100 500  255 255 255 SHADOW'
  27.  
  28. NEWSURFACE ATTR0
  29. AMBIENT 255 0 0
  30. DIFFUSE 255 0 0
  31. TRANSPAR 255 255 255
  32. REFLECT 0 0 0
  33.  
  34. NEWSURFACE ATTR1
  35. AMBIENT 255 0 0
  36. DIFFUSE 255 0 0
  37. TRANSPAR 255 255 255
  38. REFLECT 85 85 85
  39.  
  40. NEWSURFACE ATTR2
  41. AMBIENT 255 0 0
  42. DIFFUSE 255 0 0
  43. TRANSPAR 255 255 255
  44. REFLECT 170 170 170
  45.  
  46. NEWSURFACE ATTR3
  47. AMBIENT 255 0 0
  48. DIFFUSE 255 0 0
  49. TRANSPAR 255 255 255
  50. REFLECT 255 255 255
  51.  
  52. NEWSURFACE ATTR4
  53. AMBIENT 255 0 0
  54. DIFFUSE 255 0 0
  55. TRANSPAR 170 170 170
  56. REFLECT 0 0 0
  57.  
  58. NEWSURFACE ATTR5
  59. AMBIENT 255 0 0
  60. DIFFUSE 255 0 0
  61. TRANSPAR 170 170 170
  62. REFLECT 85 85 85
  63.  
  64. NEWSURFACE ATTR6
  65. AMBIENT 255 0 0
  66. DIFFUSE 255 0 0
  67. TRANSPAR 170 170 170
  68. REFLECT 170 170 170
  69.  
  70. NEWSURFACE ATTR7
  71. AMBIENT 255 0 0
  72. DIFFUSE 255 0 0
  73. TRANSPAR 170 170 170
  74. REFLECT 255 255 255
  75.  
  76. NEWSURFACE ATTR8
  77. AMBIENT 255 0 0
  78. DIFFUSE 255 0 0
  79. TRANSPAR 85 85 85
  80. REFLECT 0 0 0
  81.  
  82. NEWSURFACE ATTR9
  83. AMBIENT 255 0 0
  84. DIFFUSE 255 0 0
  85. TRANSPAR 85 85 85
  86. REFLECT 85 85 85
  87.  
  88. NEWSURFACE ATTR10
  89. AMBIENT 255 0 0
  90. DIFFUSE 255 0 0
  91. TRANSPAR 85 85 85
  92. REFLECT 170 170 170
  93.  
  94. NEWSURFACE ATTR11
  95. AMBIENT 255 0 0
  96. DIFFUSE 255 0 0
  97. TRANSPAR 85 85 85
  98. REFLECT 255 255 255
  99.  
  100. NEWSURFACE ATTR12
  101. AMBIENT 255 0 0
  102. DIFFUSE 255 0 0
  103. TRANSPAR 0 0 0
  104. REFLECT 0 0 0
  105.  
  106. NEWSURFACE ATTR13
  107. AMBIENT 255 0 0
  108. DIFFUSE 255 0 0
  109. TRANSPAR 0 0 0
  110. REFLECT 85 85 85
  111.  
  112. NEWSURFACE ATTR14
  113. AMBIENT 255 0 0
  114. DIFFUSE 255 0 0
  115. TRANSPAR 0 0 0
  116. REFLECT 170 170 170
  117.  
  118. NEWSURFACE ATTR15
  119. AMBIENT 255 0 0
  120. DIFFUSE 255 0 0
  121. TRANSPAR 0 0 0
  122. REFLECT 255 255 255
  123.  
  124. NEWSURFACE PLANE
  125. SPECULAR 0 0 0
  126. IMTEXTURE 'checker.itx 0 0 0.1  0 0 0  15 15 15'
  127.  
  128. SPHERE 'ATTR0 -45 -45 0  10'
  129. SPHERE 'ATTR1 -15 -45 0  10'
  130. SPHERE 'ATTR2 15 -45 0  10'
  131. SPHERE 'ATTR3 45 -45 0  10'
  132.  
  133. SPHERE 'ATTR4 -45 -15 0  10'
  134. SPHERE 'ATTR5 -15 -15 0  10'
  135. SPHERE 'ATTR6 15 -15 0  10'
  136. SPHERE 'ATTR7 45 -15 0  10'
  137.  
  138. SPHERE 'ATTR8 -45 15 0  10'
  139. SPHERE 'ATTR9 -15 15 0  10'
  140. SPHERE 'ATTR10 15 15 0  10'
  141. SPHERE 'ATTR11 45 15 0  10'
  142.  
  143. SPHERE 'ATTR12 -45 45 0  10'
  144. SPHERE 'ATTR13 -15 45 0  10'
  145. SPHERE 'ATTR14 15 45 0  10'
  146. SPHERE 'ATTR15 45 45 0  10'
  147.  
  148. PLANE 'PLANE 0 0 -50 0 0 1'
  149.  
  150. STARTRENDER
  151.  
  152. SAVEPIC 'attrtest1.iff'
  153.  
  154. CLEANUP
  155.  
  156. exit 0
  157.